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Mesad.Mu - Xfer, State switching, process support, Nova interface 
Last modified by Levin - August 1, 1978 3:26 PM 



Frame Allocation 



Alloc subroutine: 

allocates a frame 
Entry conditions: 

frame size index (fsi) in T 
Exit conditions: 

frame pointer in L, T, and frame 

if allocation fails, alternate return address is taken and 
temp2 is shifted left by 1 (for ALLOC) 



ll,2,AllocSub,ALL0Clarge; for ALLOC byte code 

1 1 , 2 ,ALLOCr , Xf erGr ; subroutine returns 

ll,2.ALL0Crf .XferGrf ; failure returns 

l3,4,AnocO,Allocl,Alloc2,Alloc3; dispatch on pointer flag 

; if more than 2 callers, un-comment the following pre-def inition : 

; I17,l,Allocx; shake IR*- dispatch 



AllocSub: 



L*-avml+T+l, TASK, :Allocx; 



fetch av entry 



Al locx: 



entry<-L: 

L*-MAR<-entry; 

T*-3: 

L<-MD AND T, T*-MD; 
temp«-L, L*-MAR*-T; 
SINK*-temp. BUS; 
frame^L. :AnocO; 



save av entry address 

mask for pointer flags 
(L<-MD AND 3. T*-MD) 
start reading pointer 
branch on bits 14:15 



Bits 14:15 « 00, a frame of the right index is queued for allocation 



AllocO: 



L^MD. TASK; 
temp^L; 
MAR<-entry ; 
L<-T*-frame. IDISP; 
MD^temp. :ALLOCr ; 



new entry for frame vector 
new value of vector entry 
update frame vector 
establish exit conditions 
update and return 



Bits 14:15 « 01. allocation list empty: restore argument, take failure return 



Allocl: L*-temp2, IDISP. TASK, :Alloclx; 

Alloclx: temp2*-L LSH 1. :ALLOCrf; 



restore paVameter 
allocation failed 



Bits 14:15 « 10, a pointer to an alternate list to use 



Alloc2: 
Al locp: 



temp^L RSH 1, :Allocp; 

L^temp, TASK; 
temp*-L RSH 1; 
T<-temp, rAllocSub; 



indirection: index*-index/4 



Alloc3: 



temp<-L RSH 1, :Allocp; 



(treat type 3 as type 2) 
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Free subroutine: 

frees a frame 

Entry conditions: address of frame is in 'frame' 

Exit conditions: 'frame' left pointing at released frame (for LSTF) 



13.4.RETr,FREEr,LSTFr.; 
ll7,l,Freex; 



FreeSub returns 
shake IR<- dispatch 



FreeSub: 
Freex: 



MAR<-f rame-1; 

NOP; 

T<-MD; 

L<-MAR*-avml+T+l; 

entry*-L; 

L4-MD; 

MAR^-f rame; 
temp*-L, TASK; 
MD<-temp ; 
MAR*-entry ; 
IDISP. TASK; 
MD^frame, :RETr; 



start read of fsi word 
wait for memory 
T*-index 

fetch av entry 

save av entry address 

read current pointer 

write it into current frame 

write! 

entry points at frame 
free 
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ALLOC - allocate a frame of size specified by <TOS> (popped) 

if <TOS> < maxanocslot, <TOS> is a frame size index (fsi) 
otherwise, <TOS> is requested frame size in words. 



1 1 , 1 .Savpcinf rame ; 

l7,10,Xfer6T,Xfer,Mstopr,PORTOpc.LSTr.ALLOCrfr. . ; 
U.Z.doAnocTrap.XferGfz; 



ALLOC: 
ALLOCrx: 



ALLOCr: 



L*-ret7, TASK, :Xpopsub; 
L^maxallocslot-T-l; 
L+-T, SH<0; 

temp24-L LSH 1, IR*-msrO, :AnocSub; 
:pushTB; 



(here so ALLOCrf can call it) 
return points for Savpcinframe 
used by XferGrf 

returns to ALLOCrx 

L:fsi 

successful allocation 



Allocation failed - save mpc, undiddle Ip, push fsi*4 on stack, then trap 



ALLOCrf: IR+-sr5, : Savpci nf rame ; 

ALLOCrfr: L^temp2, TASK, : doAl 1 ocTrap ; 

ALLOClarge: L+-temp2, TASK, :Anoclx; 



failure because lists empty 
pick up trap parameter 

failure because too large 



Inform software that allocation failed 



doAllocTrap: ATPreg<-L; 

T^-sAl locListEmpty , :Mtrap; 



store param. to trap proc. 
go trap to software 



FREE - release the frame whose address is <TOS> (popped) 



FREE: L*-retlO. TASK. :Xpopsub; returns to FREErx 

FREErx: frame^L, TASK; 

IR*"srl, :FreeSub; 
FREEr: :next; 
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Descriptor Instructions 



DESCB - push «gp>+gfi of f set>+2*a1 pha+1 (masking gfi word appropriately) 
DESCB is assumed to be A-aligned (no pending branch at entry) 



DESCB: T*-gp; 

T^ngpof f set+T+1 . : DESCBcom; 

DESCBcom: MAR^gf iof f set+T ; 

T^gf imask ; 
T<-MD.T; 
L<-ib+T. T*-ib; 
T*-M+T+l, :pushTA; 



T:address of frame 

start fetch of gfi word 
mask to isolate gfi bits 
T:gf i 

L:gfi+alpha, T:alpha 
pushTA because A-aligned 



DESCBS - push <<TOS>+gfi of f set>+2*al pha+1 (masking gfi word appropriately) 
DESCBS is assumed to be A-aligned (no pending branch at entry) 



DESCBS: 



L^retlS, TASK, :Xpopsub; 



returns to DESCBcom 



Mesad .mu 



2-Sep-78 17:21:54 



Page 5 



Transfer Operations 



Savpcinframe subroutine: 

stashes C-relative (mpc.ib) in current local frame 
undiddles Ip into my and Ip 
Entry conditions: none 
Exit conditions: 

current frame+1 holds pc relative to code segment base (+ » even, - ■ odd) 
Ip is undiddled 

my has undiddled Ip (source link for Xfer) 



1 1 , 1 .Savpcinframe; 

I7,10,XferGT,Xfer,Mstopr,P0RTOpc.LSTr,ALLOCrfr, . ; 
l7,l,Savpcx; 
1 1 , 2 ,Spcodd .Spceven ; 



Savpcinframe : 
Savpcx: 



Spcodd : 
Spceven : 



Spcopc: 



T^cp, :Savpcx; 
L<-mpc-T; 
SINK^ib. BUS-0; 
T«-M, : Spcodd; 

L^O-T, TASK» tSpcopc; 
L<-0+T+l, TASK, :Spcopc; 

taskhole^L; 
L^O: 

T*-npcof f set; 
MAR*-lp-T, T^lp; 
ib«-L; 

L*-nlpoff set+T+1; 
MD*-taskhole; 
my«-L, IDISP, TASK; 
lp<-L, :XferGT; 



required by PORTO 
returns (appear with ALLOC) 
shake IR*- dispatch 
pc odd or even 

code segment base 
L is code-relative pc 
check for odd or even pc 
pick up pc word addr 

- pc => odd, this word 
+ pc => even, next word 

pc value to save 

(can't merge above - TASK) 

offset to pc stash 

(MAR*-1p-npcof fset , T^-lp) 

clear ib for XferG 

L:undiddled Ip 

stash pc in f rame+pcof f set 

store undiddled Ip 
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Loadgc subroutine: 

load global pointer and code pointer given local pointer or 6FT pointer 
Entry conditions: 

T contains either local frame pointer or GFT pointer 

memory fetch of T has been started 

pending branch (1) catches zero pointer 
Exit conditions: 

Ip diddled (to framebase+6) 

mpc set from second word of entry (PC or EV offset) 
first word of code segment set to 1 (used by code swapper) 
Assumes only 2 callers 



ll,2,Xfer0r.Xferlr; 
ll,2,Loadgc,LoadgcTrap; 
11,2, LoadgcOK , LoadgcNul 1 ; 
I1.2.LoadgcIn,LoadgcSwap; 



Loadgc: 



LoadgcOK: 
Loadgcin : 



L*-lpoffset+T; 

Ip^L; 

T<-MD: 

L^MD; 

MAR^cpoff set+T; 
mpc^L, L*-T; 
L<-gpoffset+T, SH=0; 
T<-MD, BUSODD, : LoadgcOK; 

MAR<-T, :LoadgcIn; 

gp*-L, L*-T; 

cp^L, IDISP, TASK; 

MD<-ONE. :XferOr; 



return points 

good global frame or null 
in-core or swapped out 

diddle (presumed) Ip 

(only correct if frame ptr) 

global frame address 

2nd word (PC or EV offset) 

read code pointer 

copy g to L for null test 

diddle gp, test for null 

check for swapped out 

write into code segment 

set global frame pointer 
set code pointer 



picked up global frame of zero somewhere, call it unbound 

BUSODD may be pending 



! 1 , 1 .Stashmx; 

LoadgcNull: T*-sUnbound, :Stashmx; 



swapped code segment, trap to software 
LoadgcSwap: T*-sCsegSwappedOut, :Stashmx; 



destination link « 0 



LoadgcTrap: T«-sControl Paul t , :Mtrap; 
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CheckXf erTrap subroutine: 

Handles Xfer trapping 
Entry conditions: 

IR: return number in DISP 

T: parameter to be passed to trap routine 
Exit conditions: 

if trapping enabled, initiates trap and doesn't return. 



l3,4,Xfers,XferG,RETxr, ; returns from CheckXf erTrap 

II, 2, NoXf erTrap. DoXf erTrap; 

l3,l,DoXferTrapx; 

CheckXferTrap: L<-XTSreg, BUSODD; XTSregClS]-! »> trap 

SINK^DISP, BUS, :NoXferTrap; dispatch (possible) return 

NoXferTrap: XTSreg*-L RSH 1, :Xfers; reset XTSreg[15] to 0 or 1 

DoXferTrap: L^DISP, : DoXf erTrapx; tell trap handler which case 

DoXferTrapx: XTSreg<-L LCY 8, L*-T; L:trap parameter 
XTPreg«-L; 

T*-sXferTrap, :Mtrap; off to trap sequence 
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Xfer open subroutine: 

decodes general destination link for Xfer 
Entry conditions: 

source link in my 

destination link in mx 
Exit conditions: 

if destination is frame pointer, does complete xfer and exits to Ifetch. 
if destination is procedure descriptor, locates global frame and entry 
number, then exits to 'XferG'. 



13.4,XferO,Xferl,Xfer2,Xfer3; 



Xfer: 



Xfers: 



T^mx ; 

IR*-0, :CheckXferTrap; 
L<-3 AND T; 
SINK^M. L^T. BUS; 
SH«0, MAR+-T, :XferO; 



destination link type 

mx[14:15] is dest link type 

extract type bits 
L:dest link, branch on type 
check for link » 0. Memory 
data is used only if link 
is frame pointer or indirect 



mx[14-15] = 00 

Destination link is frame pointer 



XferO: 
XferOr : 



IR<-msrO, :Loadgc; 
L<-T+-mpc; 



to LoadgcNull if dest link « 0 
offset from cp: - odd, + even 



If 'brkbyte' 0, we are proceeding from a breakpoint, 
pc points to the BRK instruction: 

even pc => fetch word, stash left byte in ib, and execute brkbyte 
odd pc => clear ib, execute brkbyte 

! 1 , 2 , Xdobreak , Xnobreak; 
ll.2.Xfer0B,Xfer0A; 
ll,2,XbrkB,XbrkA; 
ll,2,XbrkBgo.XbrkAgo; 



SINK<-brkbyte, BUS=0; 
SH<0. L*-0. iXdobreakj 



set up by Loadstate 
dispatch even/odd pc 



Not proceeding from a breakpoint - simply pick up next instruction 



Xnobreak : 



:Xfer0B: 



XferOB: 
XferOA: 



L<-MAR^cp+T, :nextAdeafa; 
L*-MAR<-cp-T. SH=0, :nextXBdeaf; 



fetch word, pc even 
fetch word, pc odd (L»0) 



Proceeding from a breakpoint - dispatch brkbyte and clear it 



Xdobreak: ib^L. :XbrkB; 

XbrkB: IR<-sr20; 

L*-MAR^cp+T, :GetalphaAx; 

XbrkA: Lf-cp-T; 

mpc*-L, L^O, BUS«0, :XbrkBr; 

XbrkBr: SINK<-brkbyte, BUS. :XbrkBgo; 

XbrkBgo: brkbyte<-L RSH 1, T^O+1, :NOOP; 

XbrkAgo: brkbyte^L. T*-0+l, BUS-0. :NOOP; 



clear ib for XbrkA 

here if BRK at even byte 
set up ib (return to XbrkBr) 

here if BRK at odd byte 

ib already zero (to XbrkAgo) 

dispatch brkbyte 

clear brkbyte, act like nextA 
clear brkbyte, act like next 
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mx[14-15] - 01 

Destination link is procedure descriptor: 
mx[0-8]: GFT index (gfi) 
mx[9-13]: EV bias, or entry number (en) 



Xferl: 



Xferlr: 



temp^L RSH 1; 
count*-L MLSH 1; 
L*-count, TASK; 
count^L LCY 8; 
L*-count, TASK; 
count^L LSH 1; 
T^count ; 
T+-1777.T; 
MAR<-gftml+T+l; 
IR<-srl, :Loadgc; 

L*-temp, TASK; 
count^L RSH 1; 
T<-count ; 
T+-enmask . T; 
L<-mpc+T+l. TASK; 
count*-L LSH 1, :XferG; 



temp:ep*2+garbage 
since L«T, count<-L LCY 1; 
gfi now in 0-7 and 15 
count:gfi w/high bits garbage 

count:gfi*2 w/high garbage 

T:gfi*2 
fetch GFT[T] 

pick up two word entry into 
gp and mpc 

L:en*2+high bits of garbage 
count:en+high garbage 

T:en 

(mpc has EV base in code seg) 
count:ep*2 



mx[14-15] » 10 

Destination link is indirect: 

mx[0-15]: address of location holding destination link 

Xfer2: NOP; wait for memory 

T^MD, :Xfers; 

mx[14-15] = 11 

Destination link is unbound: 

mx[0-15]: passed to trap handler 

Xfer3: T^-sUnbound. :Stashmx; 
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XferG open subroutine: 

allocates new frame and patches links 

Entry conditions: 

'count' holds index into code segment entry vector 
assumes Ip is undiddled (in case of AllocTrap) 
assumes gp (undiddled) and cp set up 

Exit conditions: 

exits to instruction fetch (or AllocTrap) 



Pick up new pc from specified entry in entry vector 



XferGT: 
XferG: 



T*-count ; 

IR<-ONE, :CheckXferTrap; 

T*-count ; 

MAR*-cp+T; 

T<-cp-l; 

IR^srl; 
L*-MD+T; 
T4-MD; 
mpc*-L; 

T<-377.T, :AnocSub; 



parameter to CheckXferTrap 

index into entry vector 
fetch of new pc and fsi 
point just before bytes 
(main loop increments mpc) 
note: does not cause branch 
relocate pc from cseg base 
second word contains fsi 
new pc setup, ib already 0 
mask for size index 



Stash source link in new frame, establishing dynamic link 



XferGr: 



MAR^retl inkoff set+T; 
L*-lpoffset+T; 
lp<-L; 
MD<-my ; 



T has new frame base 
diddle new Ip 
install diddled Ip 
source link to new frame 



Stash new global pointer in new frame (same for local call) 

MAR«-T; 
T<-gpof f set ; 
L*-gp-T, TASK; 
MD<-M. :nextAdeaf; 



write gp to word 0 of frame 
offset to point at gf base 
subtract off offset 
global pointer stashed, GOI 



Frame allocation failed • 
11,2, doAl 1 ocTrap , Xf erGf z ; 



push destination link, then trap 



XferGrf : 



L«-mx, BUS«0; 

T<-count"l, : doAl locTrap ; 



(appears with ALLOC) 

pick up destination, test 
T:2*ep+1 



if destination link is zero (i.e. local procedure call), we must first 
fabricate the destination link 



XferGfz: L<-T. T^ngf iof f set ; 

MAR^gp-T; 
count<-L LSH 1; 
L*-count-l ; 
T<-gf imask ; 
T<-MD.T; 

L<-M+T, :doAllocTrap; 



offset from gp to gfi word 
start fetch of gfi word 
count:4*ep+2 
L:4*ep+1 

mask to save gfi only 
T:gfi 

L:gfi+4*ep+l (descriptor) 
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Getlink subroutine: 

fetches control link from either global frame or code segment 
Entry conditions: 

temp: - (index of desired link + 1) 

IR: DISP field zero/non-zero to select return point (2 callers only) 

Exit conditions: 

L,T: desired control link 



ll,2,EFCgetr,LLKBr; 

1 1 , 2,f ramel ink.codel ink; 

17.1,Fetchlink; 



return points 
shake IR<- in KFCB 



Getlink: T*-gp; 

MAR*-T+-ngpof f set+T+1 ; 
L<-temp+T, T*-temp; 
taskhole+-L; 
L<-cp+T; 

SINK*-MD, BUSODD. TASK; 
temp2*-L, :f ramel ink; 



diddled frame address 
fetch word 0 of global frame 
L:address of link in frame 
stash it 

L:address of link in code 
test bit 15 of word zero 
stash code link address 



framelink: MAR^taskhol e , :Fetchlink; 

codelink: MAR^temp2, :Fetchlink; 



fetch link from frame 
fetch 1 ink from code 



Fetchlink: 



SINKi-DISP, BUS=0; 
L+-T*-MD. :EFCgetr; 



dispatch to caller 
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EFCn - perform XFER to destination specified by external link n 
ll,l,EFCr; implicit in EFCr's return number (23B) 



EFCO: IR<-ONE, T^ONE-1, :EFCr; 0th control link 

EFCl: IR^MNE, :EFCr; 1st control link 

EFC2: IR*-T*-2, :EFCr; . . . 

EFC3: IR^T^3, :EFCr; 

EFC4: IR^Ti-4, :EFCr; 

EFC5: IR^T<-6, :EFCr; 

EFC6: IR^T4-6. :EFCr; 

EFC7: IR<-T*-7, :EFCr; 

EFC8: IR*-T<-10, :EFCr; 

EFC9: IR^T*-11, :EFCr; 

EFCIO: IR^T^12, :EFCr; 

EFCll: IR«-T^13, :EFCr; 

EFC12: IR*"T<-14, :EFCr; 

EFC13: IR^T^15. :EFCr; 

EFC14: IR4-T<-16, :EFCr; 

EFC15: IR<-T^17. :EFCr; 



EFCB - perform XFER to destination specified by external link 'alpha' 



U.l.EFCdoGetlink; shake B/A dispatch (Getalpha) 

EFCB: IR^sr23, :Getalpha; fetch link number 

EFCr: L^-O-T-l. TASK. : EFCdoGetl ink ; L:-(link number+1) 

EFCdoGetl ink: temp*-L, :Getlink; stash index for Getlink 

EFCgetr: IR^srl, :SFCr; for Savpcinf rame; no branch 



SFC - Stack Function Call (using descriptor on top of stack) 



SFC: IR^srl, :Popsub; get dest link for xfer 

; now assume IR still has srl 

SFCr: mx*-L. :Savpcinf rame; set dest link, return to Xfer 
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KFCB - Xfer using destination «SD>+alpha> 



U.l.KFCr; implicit in KFCr's return number (21B) 

ll.l.KFCx; shake B/A dispatch (Getalpha) 
; l7,l,Fetchlink; appears with Getlink 

KFCB: IR^sr21, :Getalpha; fetch alpha 

KFCr: IR*-avml, T*-avml+T+l, :KFCx; DISP must be non zero 

KFCx: MAR<-sdoff set+T. :Fetchlink; Fetchlink shakes IR*- dispatch 



BRK - Breakpoint (equivalent to KFC 0) 



BRK: ib«-L. T*-sBRK, :KFCr; ib » 0 <«> BRK B-aligned 



Trap sequence: 

used to report various faults during Xfer 
Entry conditions: 

T: index in SD through which to trap 

Savepcinf rame has already been called 
entry at Stashmx puts destination link in OTPreg before trapping 

ll.l.Stashmx; above with Loadgc code 

Stashmx: L*-mx; can't TASK, T has trap index 

OTPreg*-L, :Mtrap; 

Mtrap: T+-avml+T+l; 

MAR<-sdoff set+T; fetch dest link for trap 

NOP; 

Mtrapa: L<-MD. TASK; (enter here from PORTO) 

mx<-L. :Xfer; 



Mesad .mu 



2-Sep-78 17:21:54 



Page 



LFCn - call local procedure n (i.e. within same global frame) 



U.l.LFCx; 



LFCl: 
LFC2: 
LFC3: 
LFC4: 
LFC5: 
LFC6: 
LFC7: 
LFC8: 
LFC9: 
LFCIO 
LFCll 
LFC12 
LFC13 
LFC14 
LFC15 
LFC16 



L*-2. 
L*-3, 
LM, 

L4-6. 

L<-7. 

L^IO, 

L^ll. 

U12, 

L4-13, 

L*-14, 

L<-15, 

L<-16, 

L*-17, 

L4-20, 

Lf-21, 



:LFCx; 

:LFCx; 

:LFCxi 

:LFCx; 

:LFCx; 

:LFCx; 
LFCx 
LFCx 
LFCx 
LFCx 
LFCx 
LFCx 
LFCx 
LFCx 
LFCx 
LFCx 



Shake B/A dispatch 



LFCx: 



count<-L LSH 1. L*-0 , IR^-msrO, :SFCr; 



stash index of proc. (*2) 
dest link « 0 for local call 
will return to XferG 



LFCB - call local procedure number 'alpha' (i.e. within same global frame) 



LFCB: 
LFCr: 



IR*-sr22, rGetalpha; 
L^O+T+1. :LFCx; 
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RET - Return from function call. 



ll.l.RETx; 

RET: 

RETx: 
RETxr: 



RETr: 



T*-1p, :RETx; 

IR^2. :Ch0ckXferTrap; 
MAR<-nretl inkof f set+T; 
Unlpoffset+T+l; 
f ram0<-L; 
L4-MD; 

mx*-L, L^O. IR*-msrO. TASK; 
my<-L, tFreeSub; 
T*-mx, :Xfers; 



shake B/A branch 
local pointer 

get previous local frame 

stash for 'Free' 

pick up prev frame pointer 

mx points to caller 

clear my and go free frame 

xfer back to caller 



PUSHX - push destination link of previous Xfer 



PUSHX: T^mx, :pushTB; 



LLKB - push external link 'alpha' 

LLKB is assumed to be A-aligned (no pending branch at entry) 



LLKB: 
LLKBr: 



T^ib; 

L4-0-T-1. IR^O, :EFCdoGetlink; 
: pushTA; 



T:alpha 

L:-(alpha+l) , go call Getlink 
alignment requires pushTA 
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Port Operations 



PORTO - PORT Out (XFER thru PORT addressed by TOS) 



PORTO: 

PORTOpc: 

PORTOr: 



IR<-sr3, : Savpcinf rame ; 

L<-ret5, TASK, :Xpopsub; 

MAR4-T; 

L^T: 

MD^my; 

MAR*-M+1; 

my*-L, :Mtrapa; 



undiddle Ip into my 
returns to PORTOr 
fetch from TOS 

frame addr to word 0 of PORT 

second word of PORT 

source link to PORT address 



PORTI - PORT In (Fix up PORT return, always immediately after PORTO) 
assumes that my and mx remain from previous xfer 



11.1. PORTIx; 

11.2. P0RTInz,P0RTIz; 



PORTI: 
PORTIx: 

PORTInz: 

PORTIz: 



MAR*-mx. : PORTIx; 

SINK<-my, BUS=«0; 
TASK, :PORTInz; 

MD*-0; 
MAR<-mx+l; 
TASK, :PORTIz; 
MD*-my. :next; 



first word of PORT 



store it as second word 
store my or zero 
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State Switching 



Savestate subroutine: 

saves state of pre-empted emulation 
Entry conditions: 

L holds address where state is to be saved 

assumes undiddled 1p 
Exit conditions: 

Ip, stkp, and stack (from base to min[depth+2,8]) saved 



ll,2,DSTrl,Mstopc; actually appears as %1 . 1777 , 776 ,DSTrl ,Mstopc ; and is located 
in the front of the main file (Mesa.mu). 

ll7.20,Sav0r,Savlr ,Sav2r,Sav3r,Sav4r .Sav5r.Sav6r.Sav7r .SavlOr.Savllr.DSTr. . , , . ; 
!l,2,Savok,Savmax; 



Savestate: 
Savestatea: 

Savllr : 
SavlOr : 



Savmax: 



Savok: 



Sav7r : 
Sav6r : 
Sav5r : 
Sav4r : 
Sav3r : 
Sav2r : 
Savlr: 
SavOr : 



temp^L; 

T*-12+l; 

L<-lp, :Savsuba; 

L*-stkp, :Savsub; 

T<-stkp+l; 

L<-7+T; 

L+-0+T+1, ALUCY; 
temp2<-L. L<-0-T, :Savok: 

T^-7; 

L^stk7, :Savsuba; 

SINK^temp2, BUS; 
count*-L, :SavOr; 

L+-stk6, :Savsub; 
L*-stk5, rSavsub; 
L*-stk4, :Savsub; 
L*-stk3, :Savsub; 
L<-stk2, iSavsub; 
L+-stkl, :Savsub; 
L<-stkO, rSavsub; 
SINK<-DISP. BUS; 
T<-12, :DSTrl; 



; Remember, T is negative 

Savsub: T*-count: 
Savsuba: temp2*-L, L^O+T+l; 

MAR+-temp-T ; 

count^L, L*-0-T; 

SINK^M. BUS. TASK; 

MD*-temp2, :SavOr; 



i.e. T<-11 

check if stkp > 5 or negative 

L:stkp+2 

L:-stkp-l 

stkp > 5 «> save all 
stkp < 6 »> save to stkp+2 



return to caller 
.(for DST's benefit) 



dispatch on pos. value 
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Loadstate subroutine: 

load state for emulation 

Entry conditions: 

L points to block from which state is to be loaded 

Exit conditions: 

stkp, mx, my, and stack (from base to min[stkp+2 , 8]) loaded 
(i.e. two words past TOS are saved, if they exist) 

Note: if stkp underflows but an interrupt is taken before we detect 
it, the subsequent Loadstate (invoked by Mgo) will see 377B in the 
high byte of stkp. Thinking this a breakpoint resumption, we will 
load the state, then dispatch the 377 (via brkbyte) in XferO, causing 
a branch to StkUf (1) This is not a fool-proof check against a bad 
stkp value at entry, but it does protect against the most common 
kinds of stack errors. 



117,20,Lsr0,Lsrl,Lsr2,Lsr3,Lsr4.Lsr5,Lsr6.Lsr7,Lsrl0,Lsrll,lsrl2, . . . , ; 
11,2, Lsmax , Ldsuba; 
ll.2,Lsr .BITBLTdoner; 

Loadstate: temp<-L, IR*-msrO, :NovaIntrOn; stash pointer 

Lsr: T^12, :Ldsuba; 

Lsrl2: my<-L, :Ldsub; 

Lsrll: mx<-L, iLdsub; 

LsrlO: stkp<-L; 



L<-177400 AND T; 
brkbyte*-L LCY 8; 
L^T«-17.T; 



T<-stkp; 



check for BRK resumption 
(i.e. bytecode in stkp) 



L<-7+T; 
L^T. SH<0; 

stkp<-L, T*-0+T+l, :Lsmax; 
T*-7, :Ldsuba; 



stash for Xfer 
mask to 4 bits 
check stkp > 6 



T:stkp+1 



Lsmax: 

Lsr7: 

Lsr6: 

Lsr5: 

Lsr4: 

Lsr3: 

Lsr2: 

Lsrl: 

LsrO: 



stk7*-L, :Ldsub; 

stk6<-L, :Ldsub; 

stk5<-L, :Ldsub; 

stk4*-L, :Ldsub; 

stk3*-L, :Ldsub; 

stk2<-L, :Ldsub; 

stkl^L, :Ldsub; 

stkO^L, :Xfer; 



Ldsub : 
Ldsuba: 



MAR^temp+T; 
L<-ALLONES+T; 
count^L, L*-T; 
SINK*-M, BUS; 



T<-count ; 



deer count for next time 
use old value for dispatch 



L^MD. TASK, :LsrO; 
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DST - dump state at block starting at <LP>+alpha, reset stack pointer 

assumes DST is A-aligned (also ensures no pending branch at entry) 



DST: 



DSTrl: 
DSTr: 



T<-ib; 
T*-1p+T+l; 

Unlpoffsetl+T+l, TASK; 
temp*-L, IR^retO, :Savestatea; 
L<-my, :Savsuba; 

temp^-L, L<-0. TASK, BUS"0, :Setstkp; 



get alpha 

L:1p-lpof fset+alpha 
save my tool 

zap stkp, return to 'nextA' 



LST - load state from block starting at <LP>+a1pha 

assumes LST is A-aligned (also ensures no pending branch at entry) 



LST: 



LSTr: 



L*-ib; 

temp^L, L^O, TASK; 
ib*-L; 

IR*-sr4, :Savpcinf rame; 
T*-temp; 

L^1p+T. :Loadstate; 



make Savpcinframe happy 

returns to LSTr 

get alpha back 

1p already undiddled 



LSTF - load state from block starting at <LP>+alpha, then free frame 

assumes LSTF is A-aligned (also ensures no pending branch at entry) 



LSTF: 



LSTFr: 



T*-lpoff set; 
L*-lp-T. TASK; 
f rame*-L; 

IR*-sr2, :FreeSub; 
T*-f rame; 

L+-ib+T. TASK, :Loadstate; 



compute frame base 



set up by FreeSub 

get state from dead frame 
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Emulator Access 



RR - push <emu1ator register a1pha>, where: 

RR is A-aligned (also ensures no pending branch at entry) 
alpha: 1 ■> wdc. 2 -> XTSreg. 3 «> XTPreg, 4 •> ATPreg. 
5 ■> OTPreg, 6 "> clockreg, 7 «> cp 



17.10,RR0,RR1.RR2.RR3,RR4,RR5,RR6.RR7; 



RR: SINK*-ib, BUS; dispatch on alpha 

RRO: :RRO; 

RRl: T<-wdc, rpushTA; 

RR2: T*-XTSreg, :pushTA; 

RR3: T*-XTPreg, tpushTA; 

RR4: T*-ATPreg, rpushTA; 

RR6: T<-OTPreg, rpushTA; 

RR6: T*-clockreg, :pushTA; 

RR7: T^cp, :pushTA; 



; WR - emulator register alpha <TOS> (popped), where; 

; WR is A-aligned (also ensures no pending branch at entry) 

; alpha: 1 «> wdc, 2 «> XTSreg 

i7,10,WRO,WRl.WR2 ; 



WR: L^retS, TASK. :Xpopsub; 

WRr: SINK^ib, BUS; dispatch on alpha 

WRO: TASK, :WRO; 

WRl: wdc*-L, :nextA; 

WR2: XTSreg*-L, :nextA; 



JRAM - JMPRAM for Mesa programs (when emulator is in ROMl) 



ORAM: 
JRAMr: 



L*-ret2, TASK, :Xpopsub; 
SINK^M, BUS, SWMODE. :next; 



BUS applied to 'nextBa' («0) 
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Process/Monitor Support 



1 1 , 1 .MoveParmsl ; shake B/A dispatch 

1 1 , 1 ,MoveParms2 ; shake B/A dispatch 

ll,l,MoveParms3; shake B/A dispatch 

; ll,l,MoveParms4; shake B/A dispatch 



ME.MRE - Monitor Entry and Re-entry 



ME: IR^3, :MoveParmsl; 1 parameter 

MRE: IR<-4, :MoveParms2; 2 parameters 



; MXW.MXD - Monitor Exit and either Wait or Depart 

MXW: IR<-5, :MoveParms3; 3 parameters 

MXD: IR<-6, :MoveParmsl; 1 parameter 



NOTIFY, BCAST - Awaken process(es) from condition variable 



NOTIFY: 
BCAST: 



IR<-7, :MoveParmsl; 
IR^-10. :MoveParmsl; 



1 parameter 
1 parameter 



REQUEUE - Move process from queue to queue 



REQUEUE: IR<-11. :MoveParms3; 3 parameter 



Parameter Transfer for Nova code linkages 
Entry Conditions: 
T: 1 

IR: dispatch vector index of Nova code to execute 



;MoveParms4: 
MoveParms3 : 
MoveParms2 : 
MoveParmsl: 



L^stk3; 

AC3*-L. T*-0+T+l: 
L<-stk2; 

AC2*-L. T4-0+T+1; 
L^-stkl; 

ACl^L, T^-O+T+1; 

L^stkO; 

ACO^L; 



if you uncomment this, don't 
forget the pre-def abovel 



L^stkp-T, TASK; 
stkp*-L; 

T*-DISP+1, :STOP; 



decrement stkp 
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Miscellaneous Operations 



; CATCH - an emulator no-op of length 2. 

; CATCH is assumed to be A-aligned (no pending branch at entry) 

CATCH: L4-mpc+l. TASK, :nextAput; duplicate of 'nextA' 



; STOP - return to Nova at •NovaDVloc+1' 

; control also comes here from process opcodes with T set appropriately 

ll.l.GotoNova; shake B/A dispatch 

STOP: L^NovaDVloc+T. :GotoNova; 



STARTIO - perform Nova-like I/O function 



STARTIO: 
STARTIOr: 



L<-ret4, TASK. :Xpopsub; 
SINK^M. STARTF. :next; 



get argument in L 



Mesad.mu 



2-Sep-78 17:21:64 



Page 23 



BLT - block transfer 

assumes stack has precisely three elements: 

stkO - address of first word to read 

stkl - count of words to move 

stk2 - address of first word to write 
the instruction is interruptible and leaves a state suitable 

for re-execution if an interrupt must be honored. 



11.1. BLTx; 

1 1. 2, BLTintpend,BLTloop; 
ll,2.BLTnoint,BLTint; 
ll,2,BLTmore.BLTdone; 
ll,2,BLTeven.BLTodd; 
ll.l.BLTintx; 



BLT: 
BLTx: 

BLTloop: 
BLTnoint : 



BLTmore: 



BLTintpend: 



stk74-L, L^T. TASK, :BLTx; 
temp<-L, : BLTloop; 

L^T<-stkl-l, BUS-0, :BLTnoint; 
stkl*-L, L^BUS AND -T, :BLTmore; 



T<-temp-l ; 

MAR^stkO+T; 

L*-stkO+l; 

stkO*-L: 

L4-stk2+l; 

T^MD; 

MAR*-stk2; 

Stk2<-L, L<-T; 

SINK<-NWW. BUS-0. TASKj 

MD<-M. :BLTintpend; 

SINK^wdc. BUS-0. :BLTloop; 



; Must take an interrupt if here (via BLT or BITBLT) 

BLTint: SINK+-stk7, BUS-0. :BLTintx; 

BLTintx: L*-mpc-l, :BLTeven; 

BLTeven: mpc<-L, L^O, TASK, :BLTodd; 

BLTodd: ib^L, :Intstop; 

; BLT completed 

BLTdone: SINK*-stk7. BUS-0. TASK, :Setstkp; 



shakes entry B/A branch 



shake branch from BLTloop 

stk7-0 <"> branch pending 
stash source offset (+1) 



L*-0 on last iteration (value 
on bus is irrelevant, since T 
will be -1). 

T:source offset (0 or cp) 
start source fetch 

update source pointer 

source data 
start dest. write 
update dest. pointer 
check pending interrupts 
loop or check further 

check if interrupts enabled 



test even/odd pc 
prepare to back up 

even - back up pc, clear ib 
odd - set ib non-zero 



stk7"0 ■> return to 'nextA' 



; BLTC - block transfer from code segment 

; assumes stack has precisely three elements: 

; stkO - offset from code base of first word to read 

; stkl - count of words to move 

; stk2 - address of first word to write 

; the instruction is interruptible and leaves a state suitable 

; for re-execution if an interrupt must be honored. 

ll.l.BLTCx; shake B/A dispatch 



BLTC: 
BLTCx: 



stk7*-L, iBLTCx; 
L^cp+1. TASK. :BLTx; 



if BLT were odd, we could use: 
BLTC: T^cp+1, TASK, :BLT; 
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BITBLT - do BITBLT using ROM subroutine 

If BITBLT A-aligned, B byte will be ignored 



Il.l.BITBLTx; 
l7,l,DoBITBLTx: 

13,4,Mstop, .NovalntrOff .DoBITBLT; 



BITBLT: 
BITBLTx: 



DoBITBLT: 
DoBITBLTx: 

BITBLTdone: 
BITBLTdoner: 



stk7<-L. :BITBLTx; 
L^stkO. TASK; 
AC2+-L; 

L4-stkl. TASK; 
ACK-L; 

SINK^wdc, BUS-0; 
IR*-sr3, :NovaIntrOff ; 
L<-BITBLTret. SWMODE. :DoBITBLTx; 
PC^L, L^O, :ROMBITBLT; 

IR^srl, :NovaIntrOn; 

brkbyte^-L, BUS«0. TASK. :Setstkp; 



shake B/A dispatch 
shake IR^ dispatch 
includes NovalntrOff returns 

save even/odd across ROM call 

stash descriptor table 



check if Mesa interrupts off 

if so. shut off Nova's 

get return address 

L*-0 for AUo II ROMO "feature" 

ensure Nova interrupts are on 
don't bother to validate stkp 



BITBLTintr: 



L^-ACl, TASK; 
stkl*-L. :BLTint; 



pick up intermediate state 
stash instruction state 
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Mesa/Nova Communication 



Subroutines to Enable/Disable Nova Interrupts 



l3,4,Mstop. .NovalntrOff .DoBITBLT; 
ll,2.Lsr.BITBLTdoner; 
17.1.NovaIntrOffx; 



NovalntrOff : 
NovalntrOffx: 



NovalntrOn: 



T4-100000; 

L<-NWW OR T, TASK. IDISP; 
NWW4-L, :Mstop; 

T^IOOOOO; 

L^NWW AND NOT T. IDISP; 
NWW*-L, L^O. :Lsr; 



appears with BITBLT 
appears with LoadState 
shake IR*- dispatch 

disable bit 

turn it on, dispatch return 



disable bit 

turn it off, dispatch return 



IWDC - Increment Wakeup Disable Counter (disable interrupts) 
ll,2.IDnz.IDz; 



IWDC: 



L^wdc+1, TASK, :IDnz; 



skip check for interrupts 



DWDC - Decrement Wakeup Disable Counter (enable interrupts) 



ll.l.DWDCx; 

DWDC: MAR4-WWL0C, :DWDCx; OR WW into NWW 

DWDCx: J<rHW; 

L^MD OR T, TASK; 
NWW^L: 

SINK*"ib, BUS-0; 
L*-wdc-l, TASK, :IDnz; 

; Ensure that one instruction will execute before an interrupt is taken 

IDnz: wdc*-L, :next; 

IDz: wdc<-L, :nextAdeaf; 



Entry to Mesa Emulation 

ACQ holds address of current process state block 
Location 'PSBloc' is assumed to hold the same value 



Mgo: L<-ACO. :Loadstate; 
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; Nova Interface 

SSTART $1004020,0,0; Nova emulator return address 



Transfer to Nova code 
Entry conditions: 

L contains Nova PC to use 
Exit conditions: 

Control transfers to ROMO at location 'START' to do Nova emulation 
Nova PC points to code to be executed 

Except for parameters expected by the target code, all Nova ACs 

contain garbage 
Nova interrupts are disabled 



GotoNova: PC+-L, IR<-msrO, :NovaIntrOff ; stash Nova PC, return to Mstop 



Control comes here when an interrupt must be taken, 
pass to the Nova emulator with interrupts enabled. 



Control will 



Intstop: L^NovaDVloc, TASK; 

PC+-L, : Ms top; 



resume at Nova loc. 30B 



Stash the Mesa pc and dump the current process state, 
then start fetching Nova instructions. 



Mstop: 
Mstopr : 



IR^sr2, :Savpcinframe; 

MAR<-CurrentState; 

IR*-retl; 

L*-MD, :Savestate; 



save mpc for Nova code 
get current state address 
will return to 'Mstopc' 
dump the state 



; The following instruction must be at location 'SWRET', by convention. 



Mstopc: 



SWMODE ; 
: START; 



off to the Nova 



